home *** CD-ROM | disk | FTP | other *** search
/ Hottest 6 / Hottest 6 (1996)(PDSoft)[!].iso / software / business / updates_and_patches / squirrel / squirrelscsi_1.02-1.05 / squirrelupdate_1.02-1.05 < prev    next >
Text File  |  1978-11-24  |  5KB  |  174 lines
  1. ;;-
  2. ;;- $Id$
  3. ;;-
  4. ;;- Squirrel SCSI 1.02-1.05 update script
  5. ;;-
  6. ;;- Copyright © 1995 HiSoft. All Rights Reserved.
  7. ;;-
  8.  
  9. ;;- parameters for this update
  10. (set gSquirrelPatchRelease "1.02")
  11.  
  12. (set gSquirrelDevXVersion 2425394)
  13. (set gSquirrelDevNVersion 2425564)
  14. (set gSquirrelDevXCheckSum68000 -1271744727)
  15. (set gSquirrelDevXCheckSum68020 1771404161)
  16.  
  17. (set gCDDevXVersion 2621823)
  18. (set gCDDevNVersion 2621910)
  19. (set gCDDevXCheckSum 373807369)
  20.  
  21. ;;- generic update procedures
  22. (procedure UpdateSquirrelSCSIDevice
  23.     (if (exists "DEVS:squirrelscsi.device" (noreq))
  24.         (    (set gSquirrelDevCheckSum (getsum "DEVS:squirrelscsi.device"))
  25.             (set gSquirrelDevVersion (getversion "DEVS:squirrelscsi.device"))
  26.             (if (<> gSquirrelDevVersion gSquirrelDevXVersion)
  27.                 (abort
  28.                     "This patch is designed for version "
  29.                     gSquirrelPatchRelease
  30.                     "; if you are using an earlier version you should first apply "
  31.                     "all preceding patches then try this patch again."
  32.                 )
  33.             )
  34.             (if (= gSquirrelDevCheckSum gSquirrelDevXCheckSum68000)
  35.                 (    (if
  36.                         (run
  37.                             "spatch -oDEVS:squirrelscsi.new -psquirrelscsi.device.68000.pch DEVS:squirrelscsi.device"
  38.                             (confirm)
  39.                             (prompt
  40.                                 (    "Update 68000 compatible \"DEVS:squirrelscsi.device\" from version %ld.%ld to version %ld.%ld?"
  41.                                     (/ gSquirrelDevXVersion 65536)
  42.                                     (- gSquirrelDevXVersion (* (/ gSquirrelDevXVersion 65536) 65536))
  43.                                     (/ gSquirrelDevNVersion 65536)
  44.                                     (- gSquirrelDevNVersion (* (/ gSquirrelDevNVersion 65536) 65536))
  45.                                 )
  46.                             )
  47.                             (help "")
  48.                         )
  49.                         (abort
  50.                             "An error has occured whilst patching the file "
  51.                             "\"DEVS:squirrelscsi.device\"; reinstalling from the master disk "
  52.                             "and trying the update again may rectify the problem."
  53.                         )
  54.                         (    (rename "DEVS:squirrelscsi.device" "DEVS:squirrelscsi.old")
  55.                             (rename "DEVS:squirrelscsi.new" "DEVS:squirrelscsi.device")
  56.                             (delete "DEVS:squirrelscsi.old")
  57.                         )
  58.                     )
  59.                 )
  60.                 (if (= gSquirrelDevCheckSum gSquirrelDevXCheckSum68020)
  61.                     (    (if
  62.                             (run
  63.                                 "spatch -oDEVS:squirrelscsi.new -psquirrelscsi.device.68020.pch DEVS:squirrelscsi.device"
  64.                                 (confirm)
  65.                                 (prompt
  66.                                     (    "Update 68020 optimised \"DEVS:squirrelscsi.device\" from version %ld.%ld to version %ld.%ld?"
  67.                                         (/ gSquirrelDevXVersion 65536)
  68.                                         (- gSquirrelDevXVersion (* (/ gSquirrelDevXVersion 65536) 65536))
  69.                                         (/ gSquirrelDevNVersion 65536)
  70.                                         (- gSquirrelDevNVersion (* (/ gSquirrelDevNVersion 65536) 65536))
  71.                                     )
  72.                                 )
  73.                                 (help "")
  74.                             )
  75.                             (abort
  76.                                 "An error has occured whilst patching the file "
  77.                                 "\"DEVS:squirrelscsi.device\"; reinstalling from the master disk "
  78.                                 "and trying the update again may rectify the problem."
  79.                             )
  80.                             (    (rename "DEVS:squirrelscsi.device" "DEVS:squirrelscsi.old")
  81.                                 (rename "DEVS:squirrelscsi.new" "DEVS:squirrelscsi.device")
  82.                                 (delete "DEVS:squirrelscsi.old")
  83.                             )
  84.                         )
  85.                     )
  86.                     (abort
  87.                         "The updater could not identify which version of the SCSI driver "
  88.                         "you are using; reinstalling from the master disk and trying "
  89.                         "the update again may rectify the problem."
  90.                     )
  91.                 )
  92.             )
  93.         )
  94.         (abort
  95.             "The Squirrel SCSI device driver, \"DEVS:squirrelscsi.device\" "
  96.             "could not be found; reinstalling from the master disk and trying "
  97.             "the update again may rectify the problem."
  98.         )
  99.     )
  100. )
  101.  
  102. (procedure UpdateCDDevice
  103.     (if (exists "DEVS:cd.device" (noreq))
  104.         (    (set gCDDevCheckSum (getsum "DEVS:cd.device"))
  105.             (set gCDDevVersion (getversion "DEVS:cd.device"))
  106.             (if (<> gCDDevVersion gCDDevXVersion)
  107.                 (abort
  108.                     "This patch is designed for version "
  109.                     gSquirrelPatchRelease
  110.                     "; if you are using an earlier version you should first apply "
  111.                     "all preceding patches then try this patch again."
  112.                 )
  113.             )
  114.             (if (= gCDDevCheckSum gCDDevXCheckSum)
  115.                 (    (if
  116.                         (run
  117.                             "spatch -oDEVS:cd.new -pcd.device.pch DEVS:cd.device"
  118.                             (confirm)
  119.                             (prompt
  120.                                 (    "Update CD device, \"DEVS:cd.device\", from version %ld.%ld to version %ld.%ld?"
  121.                                     (/ gCDDevXVersion 65536)
  122.                                     (- gCDDevXVersion (* (/ gCDDevXVersion 65536) 65536))
  123.                                     (/ gCDDevNVersion 65536)
  124.                                     (- gCDDevNVersion (* (/ gCDDevNVersion 65536) 65536))
  125.                                 )
  126.                             )
  127.                             (help "")
  128.                         )
  129.                         (abort
  130.                             "An error has occured whilst patching the file "
  131.                             "\"DEVS:cd.device\"; reinstalling from the master disk "
  132.                             "and trying the update again may rectify the problem."
  133.                         )
  134.                         (    (rename "DEVS:cd.device" "DEVS:cd.old")
  135.                             (rename "DEVS:cd.new" "DEVS:cd.device")
  136.                             (delete "DEVS:cd.old")
  137.                         )
  138.                     )
  139.                 )
  140.                 (abort
  141.                     "The updater could not identify which version of the SCSI driver "
  142.                     "you are using; reinstalling from the master disk and trying "
  143.                     "the update again may rectify the problem."
  144.                 )
  145.             )
  146.         )
  147.         (abort
  148.             "The CD device driver, \"DEVS:cd.device\" "
  149.             "could not be found; reinstalling from the master disk and trying "
  150.             "the update again may rectify the problem."
  151.         )
  152.     )
  153. )
  154.  
  155. (procedure UpdateCD32Drawer
  156.     (if (<> (getassign "CD32" 'a') "")
  157.         (copyfiles
  158.             (source "CD32/")
  159.             (dest "CD32:")
  160.             (all)
  161.         )
  162.         (abort
  163.             "The CD32 support drawer, \"CD32:\" "
  164.             "could not be found; reinstalling from the master disk and trying "
  165.             "the update again may rectify the problem."
  166.         )
  167.     )
  168. )
  169.  
  170. ;;- invoke the procedures for this update
  171. (UpdateSquirrelSCSIDevice)
  172. (UpdateCDDevice)
  173. (UpdateCD32Drawer)
  174.